-- card: 14608 from stack: in.9 -- bmap block id: 14990 -- flags: 0000 -- background id: 11179 -- name: cun5 -- part 1 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=455 top=301 right=335 bottom=501 -- title width / last selected line: 0 -- icon id / first selected line: 24317 / 24317 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Go first ----- HyperTalk script ----- on mouseUp set lockscreen to true go card "tline" hide background field "one" hide background field "two" hide background field "three" hide background field "four" set lockscreen to false visual effect dissolve go to card "tline" end mouseUp -- part 2 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=422 top=303 right=339 bottom=457 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: right dogear ----- HyperTalk script ----- on mouseUp -- this script handles a diagonally divided button, intended to be -- a right dogear put (item 1 of the clickLoc) - (item 1 of the rect of the target) into x put (item 4 of the rect of the target) - (item 2 of the clickLoc) into y if (x < y) then -- click is in upper left visual effect wipe left play "click" go to next card else visual effect wipe right play "click" go to prev card end if end mouseUp